home *** CD-ROM | disk | FTP | other *** search
- local i j=0 k n=width*height-1
- onintr goto finis
- echo -n "\e[0 p"
- repeat n 'k=j/height+1,i=j%height+1,j++;echo -n "\e[$i;${k}H "'
- label finis
- echo -n "\e[ p"
- ## eraser - cleans up the console window.
- #
- # eraser is provided as is for entertainment purposes only; no warantee is
- # either expressed or implied as to its suitability or fitness for any
- # purpose whatsoever. You assume all the risk for all damage, even if
- # caused by a defect in the software, no matter how awful.
-